Cream of the Crop 26/Cream of the Crop 26.iso/database/32psro20.zip/_SETUP.1/REO32S.EXE/0/RCDATA/TFIELDFILTERDLG/TFIELDFILTERDLG.txt

Text File | 1997-05-14 | 5KB | 258 lines

object FieldFilterDlg: TFieldFilterDlg
  Left = 26
  Top = 125
  ActiveControl = RadioGroup1
  BorderStyle = bsDialog
  ClientHeight = 185
  ClientWidth = 494
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  PixelsPerInch = 96
  Position = poScreenCenter
  ShowHint = True
  OnCreate = FormCreate
  TextHeight = 13
  object OKBtn: TBitBtn
    Left = 412
    Top = 8
    Width = 77
    Height = 27
    Caption = '&OK'
    TabOrder = 0
    OnClick = OKBtnClick
    Kind = bkOK
    Margin = 2
    Spacing = -1
    IsControl = True
  end
  object CancelBtn: TBitBtn
    Left = 412
    Top = 40
    Width = 77
    Height = 27
    Caption = '&Cancel'
    TabOrder = 1
    Kind = bkCancel
    Margin = 2
    Spacing = -1
    IsControl = True
  end
  object HelpBtn: TBitBtn
    Left = 412
    Top = 72
    Width = 77
    Height = 27
    TabOrder = 2
    Kind = bkHelp
    Margin = 2
    Spacing = -1
    IsControl = True
  end
  object Panel1: TPanel
    Left = 7
    Top = 10
    Width = 386
    Height = 167
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 3
    object Text1: TLabel
      Left = 8
      Top = 16
      Width = 113
      Height = 41
      Caption = 'Select Records For Which Value Of'
      WordWrap = True
    end
    object Text2: TLabel
      Left = 8
      Top = 50
      Width = 113
      Height = 13
      AutoSize = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      WordWrap = True
    end
    object Text3: TLabel
      Left = 240
      Top = 16
      Width = 35
      Height = 13
      Caption = 'THAN'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      WordWrap = True
    end
    object Text4: TLabel
      Left = 240
      Top = 72
      Width = 27
      Height = 13
      Caption = 'AND'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Visible = False
      WordWrap = True
    end
    object Panel2: TPanel
      Left = 240
      Top = 16
      Width = 137
      Height = 145
      BevelOuter = bvNone
      TabOrder = 5
      Visible = False
      object Memo1: TMemo
        Left = 0
        Top = 8
        Width = 129
        Height = 105
        Hint = 'Enter One Value Per Line Here'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '')
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 0
        OnEnter = Memo1Enter
        OnExit = Memo1Exit
      end
      object BitBtn2: TBitBtn
        Left = 71
        Top = 118
        Width = 58
        Height = 25
        Hint = 'Remove Current Line'
        Caption = '&Remove'
        Enabled = False
        TabOrder = 1
        TabStop = False
        OnClick = BitBtn2Click
      end
      object BitBtn1: TBitBtn
        Left = 7
        Top = 118
        Width = 58
        Height = 25
        Hint = 'Fill The List With All Values'
        Caption = '&Populate'
        TabOrder = 2
        TabStop = False
        Visible = False
        OnClick = BitBtn1Click
      end
    end
    object RadioGroup1: TRadioGroup
      Left = 125
      Top = 8
      Width = 89
      Height = 145
      Caption = 'Is'
      Items.Strings = (
        '<'
        '<='
        '='
        '>='
        '>'
        'Between'
        'One Of')
      TabOrder = 0
      OnClick = RadioGroup1Click
    end
    object Edit1: TFilterEdit
      Left = 240
      Top = 40
      Width = 120
      Height = 20
      Hint = 'Enter Text Here'
      TabOrder = 1
      ValidChars = '[]'
    end
    object Edit2: TFilterEdit
      Left = 240
      Top = 96
      Width = 120
      Height = 20
      Hint = 'Enter Text Here'
      TabOrder = 2
      Visible = False
      ValidChars = '[]'
    end
    object CurrencyEdit1: TCurrencyEdit
      Left = 240
      Top = 40
      Width = 120
      Height = 24
      Hint = 'Enter Numeric Value Here'
      DisplayFormat = ',0.00'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      Visible = False
    end
    object CurrencyEdit2: TCurrencyEdit
      Left = 240
      Top = 96
      Width = 120
      Height = 24
      Hint = 'Enter Numeric Value Here'
      DisplayFormat = ',0.00'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      Visible = False
    end
    object DateEdit1: TDateEdit
      Left = 240
      Top = 40
      Width = 97
      Height = 24
      Hint = 'Enter Date Here'
      DateFormat = 'mm/dd/yyyy'
      Date = '__/__/____'
      MaxLength = 10
      TabOrder = 3
      Visible = False
      OnSetFormat = DateEdit1SetFormat
    end
    object DateEdit2: TDateEdit
      Left = 240
      Top = 96
      Width = 97
      Height = 24
      Hint = 'Enter Date Here'
      DateFormat = 'mm/dd/yyyy'
      Date = '__/__/____'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      MaxLength = 10
      ParentFont = False
      TabOrder = 4
      Visible = False
    end
  end
end